home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Answers 1995 December
/
PC Answers December 1995 (disc errors).iso
/
mxc
/
flyinf.dir
/
00006_Script_6
< prev
next >
Wrap
Text File
|
1995-05-04
|
1KB
|
42 lines
global myLine, gsliderbar, gmovno, gDirMovie, fixPal
on startMovie
if the machineType < 256 then
openXlib "XPALETTE"
set fixPal = fixPalette(mNew,the stageleft,the stagetop,the stageright,the stagebottom)
end if
if the machineType >= 256 then
openXlib "XPALETTE.dll"
set fixPal = xPalette(mNew)
end if
seperate
set gDirMovie = "flyinf.dir"
set gMovNo = the number of cast gMovNo
fixPal(mpatchIt)
repeat with i = 1 to 1000
if the castType of cast i = #digitalVideo then
set the pausedAtStart of cast i = True
set the controller of cast i = gsliderBar
set the video of cast i = false
end if
end repeat
end
on patchPal
fixPal(mPatchIt)
end patchPal
on stopMovie
fixPal(mDispose)
if the machineType < 256 then closeXlib "XPALETTE"
else closeXlib "XPALETTE.dll"
end stopMovie
on seperate
put getAt(FlyList, 1) into field "Name"
put getAt(FlyList, 2) into field "Pattern"
put getAt(FlyList, 3) into field "Stage"
put getAt(FlyList, 4) into field "Link"
put the number of cast(getat(flyList, 7)) into gMovNo
end